home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 001-010 / amok01 / fish / fishdata.mod < prev    next >
Text File  |  1993-11-04  |  32KB  |  627 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*       This File includes the Fish' Imagery and all needed Bob,          *)
  4. (*                BSprite and AnimComp- Structures !!!                     *)
  5. (*                                                                         *)
  6. (*  Ported to MODULA-2 by Fridtjof Siebert.                                *)
  7. (*        Thanks to Matt Dillon for his wonderful Editor DME, without      *)
  8. (*           this wouldn't have been possible !!!                          *)
  9. (*                                                                         *)
  10. (*-------------------------------------------------------------------------*)
  11.  
  12. IMPLEMENTATION MODULE FishData;
  13.  
  14. FROM SYSTEM IMPORT INLINE,ADR,ADDRESS,SHIFT,BITSET;
  15. FROM Arts IMPORT TermProcedure;
  16. FROM Graphics IMPORT VSprite,BobPtr,VSpriteFlagSet,VSpriteFlags,
  17.        AnimComp,AnimCompPtr,AnimObPtr,BobFlags,BobFlagSet,Bob,VSpritePtr;
  18. FROM Exec IMPORT AllocMem, MemReqs, MemReqSet, FreeMem;
  19.  
  20. FROM FishInit IMPORT fish1Routine, fishOb;
  21.  
  22. (*
  23. TYPE
  24.   FishData = ARRAY[0..377] OF CARDINAL;
  25.  
  26. VAR
  27.   color: ARRAY[0..7] OF INTEGER;
  28.   image1,image2,image3,image4,image5,image6,image7,image8,image9,
  29.   FishDataPtr: POINTER TO FishData;
  30.   fish1Comp ,fish2Comp ,fish3Comp ,fish4Comp ,fish5Comp ,fish6Comp,
  31.   fish7Comp ,fish8Comp ,fish9Comp ,fish10Comp,fish11Comp,fish12Comp,
  32.   fish13Comp,fish14Comp,fish15Comp,fish16Comp,fish17Comp: AnimComp;
  33.   fish1Bob, fish2Bob, fish3Bob, fish4Bob, fish5Bob,fish6Bob,fish7Bob,
  34.   fish8Bob,fish9Bob,fish10Bob,fish11Bob,fish12Bob,fish13Bob,fish14Bob,
  35.   fish15Bob,fish16Bob,fish17Bob: Bob;
  36.   fish1Sprite, fish2Sprite, fish3Sprite, fish4Sprite, fish5Sprite,
  37.   fish6Sprite,fish7Sprite,fish8Sprite,fish9Sprite, fish10Sprite,
  38.   fish11Sprite,fish12Sprite,fish13Sprite,fish14Sprite,fish15Sprite,
  39.   fish16Sprite,fish17Sprite: VSprite;
  40. *)
  41.  
  42. PROCEDURE Image1Data(); (* $E- *)
  43.  
  44. BEGIN
  45. INLINE(
  46. 00H,   00H,   04H,   00H,   00H,   00H,   00H,   0F80H, 00H,   00H,
  47. 0FC0H, 00H,   00H,   0860H, 00H,   00H,   0EC0H, 00H,   00H,   018H,
  48. 00H,   00H,   021H,  00H,   00H,   021H,  08000H,00H,   031H,  08000H,
  49. 00H,   07H,   00H,   0F800H,00H,   00H,   0FC03H,00H,   00H,   0FE03H,
  50. 0C000H,07800H,0FF03H,0E001H,0C400H,0FF83H,0F800H,06000H,0FFE3H,0FE00H,
  51. 03800H,0FFE3H,0FF80H,00H,   0FFF3H,0FFE0H,00H,   0FFF8H,00H,   00H,
  52. 0FFFCH,00H,   00H,   0FFFEH,00H,   00H,   0FF81H,00H,   00H,   0FF81H,
  53. 08060H,00H,   0FF81H,0C1E0H,00H,   0FFFFH,0E0E0H,00H,   0FFFFH,0F060H,
  54. 00H,   0FFFFH,0F800H,04H,   0FFFFH,0F000H,00H,   0FFFFH,0C000H,00H,
  55. 0FFFFH,0FF0H, 00H,   0FFFCH,0FC0H, 00H,   0FFF0H,0F00H, 00H,   0FFC0H,
  56. 0C00H, 00H,   0FF00H,0800H, 00H,   0FC00H,00H,   00H,   00H,   00H,
  57. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  58. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   04H,   00H,
  59. 00H,   00H,   00H,   0F80H, 00H,   00H,   0FC0H, 00H,   00H,   0860H,
  60. 00H,   00H,   0EC0H, 00H,   00H,   018H,  00H,   00H,   021H,  00H,
  61. 00H,   021H,  08000H,00H,   031H,  08000H,00H,   07H,   00H,   00H,
  62. 00H,   00H,   03H,   00H,   00H,   03H,   0C000H,07800H,03H,   0E001H,
  63. 0C400H,03H,   0F800H,06000H,023H,  0FE00H,03800H,03H,   0FF80H,00H,
  64. 03H,   0FFE0H,00H,   03H,   0FFF8H,00H,   03H,   0FFFEH,00H,   01H,
  65. 0FFFFH,08000H,00H,   0FFFFH,0E000H,00H,   07F9FH,0F800H,00H,   03E1FH,
  66. 0F000H,00H,   01F1FH,0E000H,00H,   0F9FH, 0E000H,00H,   07FFH, 0F004H,
  67. 00H,   0FFFH, 0F800H,00H,   03FFFH,0FE00H,00H,   0F00FH,0F800H,01H,
  68. 0F03FH,0C000H,01H,   0F0FFH,00H,   01H,   0F3FCH,00H,   01H,   0F7E0H,
  69. 00H,   01H,   0FF00H,00H,   01H,   0F800H,00H,   01H,   0E000H,00H,
  70. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  71. 00H,   00H,   00H,   00H,   04H,   00H,   00H,   00H,   00H,   0F80H,
  72. 00H,   00H,   0FC0H, 00H,   00H,   0860H, 00H,   00H,   0EC0H, 00H,
  73. 00H,   018H,  00H,   00H,   021H,  00H,   00H,   021H,  08000H,00H,
  74. 031H,  08000H,00H,   07H,   00H,   00H,   00H,   00H,   00H,   00H,
  75. 00H,   00H,   00H,   07800H,00H,   01H,   0C400H,00H,   00H,   06000H,
  76. 020H,  00H,   03800H,00H,   00H,   00H,   00H,   00H,   00H,   00H,
  77. 00H,   00H,   00H,   00H,   00H,   00H,   0300H, 00H,   07EH,  07C0H,
  78. 00H,   07EH,  07E0H, 00H,   07EH,  03E0H, 0F00H, 00H,   0E0H,  01C00H,
  79. 00H,   060H,  01C00H,00H,   00H,   0E04H, 00H,   00H,   0700H, 00H,
  80. 00H,   00H,   00H,   0FF0H, 00H,   00H,   0FC0H, 04H,   00H,   0F00H,
  81. 00H,   00H,   0C00H, 00H,   00H,   0800H, 00H,   00H,   00H,   00H,
  82. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  83. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H);
  84. END Image1Data;
  85.  
  86. PROCEDURE Image2Data(); (* $E- *)
  87.  
  88. BEGIN
  89. INLINE(
  90. 00H,   00H,   04H,   00H,   00H,   00H,   00H,   03E0H, 00H,   00H,
  91. 03F0H, 00H,   00H,   0218H, 00H,   00H,   03B0H, 00H,   00H,   06H,
  92. 00H,   00H,   08H,   04000H,00H,   08H,   06000H,00H,   0CH,   06000H,
  93. 00H,   01H,   0C000H,00H,   00H,   00H,   0700H, 06000H,00H,   0780H,
  94. 07000H,01E00H,07C0H, 07800H,07100H,07E0H, 07E00H,01800H,07F8H, 07F80H,
  95. 0E00H, 07F8H, 07FE0H,00H,   07FCH, 07FF8H,00H,   07FEH, 00H,   00H,
  96. 07FFH, 00H,   00H,   07FFH, 08000H,00H,   07E0H, 04000H,00H,   07E0H,
  97. 06018H,00H,   07E0H, 07078H,00H,   07FFH, 0F838H,00H,   07FFH, 0FC18H,
  98. 00H,   07FFH, 0FE00H,04H,   07FFH, 0FC00H,00H,   07FFH, 0F000H,00H,
  99. 07FFH, 0C3FCH,00H,   07FFH, 03F0H, 00H,   07FCH, 03C0H, 00H,   07F0H,
  100. 0300H, 00H,   07C0H, 0200H, 00H,   0700H, 00H,   00H,   00H,   00H,
  101. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  102. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   04H,   00H,
  103. 00H,   00H,   00H,   03E0H, 00H,   00H,   03F0H, 00H,   00H,   0218H,
  104. 00H,   00H,   03B0H, 00H,   00H,   06H,   00H,   00H,   08H,   04000H,
  105. 00H,   08H,   06000H,00H,   0CH,   06000H,00H,   01H,   0C000H,00H,
  106. 00H,   00H,   00H,   06000H,00H,   00H,   07000H,01E00H,00H,   07800H,
  107. 07100H,00H,   07E00H,01800H,08H,   07F80H,0E00H, 00H,   07FE0H,00H,
  108. 00H,   07FF8H,00H,   00H,   07FFCH,00H,   00H,   07FFFH,00H,   00H,
  109. 07FFFH,0C000H,00H,   03FFFH,0F000H,00H,   01FE7H,0FC00H,00H,   0F87H,
  110. 0F000H,00H,   07C7H, 0E000H,00H,   03E7H, 0E000H,00H,   01FFH, 0E004H,
  111. 00H,   03FFH, 0F800H,00H,   0FFFH, 0FC00H,00H,   01C03H,0F800H,00H,
  112. 01C0FH,0C000H,00H,   01C3FH,00H,   00H,   01CF8H,00H,   00H,   01DF0H,
  113. 00H,   00H,   01FC0H,00H,   00H,   01E00H,00H,   00H,   01800H,00H,
  114. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  115. 00H,   00H,   00H,   00H,   04H,   00H,   00H,   00H,   00H,   03E0H,
  116. 00H,   00H,   03F0H, 00H,   00H,   0218H, 00H,   00H,   03B0H, 00H,
  117. 00H,   06H,   00H,   00H,   08H,   04000H,00H,   08H,   06000H,00H,
  118. 0CH,   06000H,00H,   01H,   0C000H,00H,   00H,   00H,   00H,   00H,
  119. 00H,   00H,   00H,   01E00H,00H,   00H,   07100H,00H,   00H,   01800H,
  120. 08H,   00H,   0E00H, 00H,   00H,   00H,   00H,   00H,   00H,   00H,
  121. 00H,   00H,   00H,   00H,   00H,   00H,   0C0H,  00H,   01FH,  081F0H,
  122. 00H,   01FH,  081F8H,00H,   01FH,  080F8H,0F00H, 00H,   038H,  01C00H,
  123. 00H,   018H,  01C00H,00H,   00H,   01C04H,00H,   00H,   0600H, 00H,
  124. 00H,   0300H, 00H,   03FCH, 00H,   00H,   03F0H, 04H,   00H,   03C0H,
  125. 00H,   00H,   0300H, 00H,   00H,   0200H, 00H,   00H,   00H,   00H,
  126. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  127. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H);
  128. END Image2Data;
  129.  
  130. PROCEDURE Image3Data(); (* $E- *)
  131.  
  132. BEGIN
  133. INLINE(
  134. 00H,   00H,   04H,   00H,   00H,   00H,   00H,   03E0H, 00H,   00H,
  135. 03F0H, 00H,   00H,   0218H, 00H,   00H,   03B0H, 00H,   00H,   06H,
  136. 00H,   00H,   08H,   04000H,00H,   08H,   06000H,00H,   0CH,   06000H,
  137. 00H,   01H,   0C000H,00H,   00H,   00H,   0100H, 02000H,00H,   0180H,
  138. 03000H,01E00H,01C0H, 03800H,07100H,01E0H, 03E00H,01800H,01F8H, 03F80H,
  139. 0E00H, 01F8H, 03FE0H,00H,   01FCH, 03FF8H,00H,   01FEH, 00H,   00H,
  140. 01FFH, 00H,   00H,   01FFH, 08000H,00H,   01E0H, 04000H,00H,   01E0H,
  141. 06018H,00H,   01E0H, 07078H,00H,   01FFH, 0F838H,00H,   01FFH, 0FC18H,
  142. 00H,   01FFH, 0FE00H,04H,   01FFH, 0FC00H,00H,   01FFH, 0F000H,00H,
  143. 01FFH, 0C3FCH,00H,   01FFH, 03F0H, 00H,   01FCH, 03C0H, 00H,   01F0H,
  144. 0300H, 00H,   01C0H, 0200H, 00H,   0100H, 00H,   00H,   00H,   00H,
  145. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  146. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   04H,   00H,
  147. 00H,   00H,   00H,   03E0H, 00H,   00H,   03F0H, 00H,   00H,   0218H,
  148. 00H,   00H,   03B0H, 00H,   00H,   06H,   00H,   00H,   08H,   04000H,
  149. 00H,   08H,   06000H,00H,   0CH,   06000H,00H,   01H,   0C000H,00H,
  150. 00H,   00H,   00H,   02000H,00H,   00H,   03000H,01E00H,00H,   03800H,
  151. 07100H,00H,   03E00H,01800H,08H,   03F80H,0E00H, 00H,   03FE0H,00H,
  152. 00H,   03FF8H,00H,   00H,   03FFCH,00H,   00H,   03FFFH,00H,   00H,
  153. 03FFFH,0C000H,00H,   03FFFH,0F000H,00H,   01FE7H,0FC00H,00H,   0F87H,
  154. 0F000H,00H,   07C7H, 0F000H,00H,   03E7H, 0F000H,00H,   01FFH, 0F004H,
  155. 00H,   03FFH, 0F800H,00H,   0FFFH, 0FC00H,00H,   0C03H, 0F800H,00H,
  156. 0C0FH, 0C000H,00H,   0C3FH, 00H,   00H,   0CF8H, 00H,   00H,   0DF0H,
  157. 00H,   00H,   0FC0H, 00H,   00H,   0E00H, 00H,   00H,   0800H, 00H,
  158. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  159. 00H,   00H,   00H,   00H,   04H,   00H,   00H,   00H,   00H,   03E0H,
  160. 00H,   00H,   03F0H, 00H,   00H,   0218H, 00H,   00H,   03B0H, 00H,
  161. 00H,   06H,   00H,   00H,   08H,   04000H,00H,   08H,   06000H,00H,
  162. 0CH,   06000H,00H,   01H,   0C000H,00H,   00H,   00H,   00H,   00H,
  163. 00H,   00H,   00H,   01E00H,00H,   00H,   07100H,00H,   00H,   01800H,
  164. 08H,   00H,   0E00H, 00H,   00H,   00H,   00H,   00H,   00H,   00H,
  165. 00H,   00H,   00H,   00H,   00H,   00H,   0C0H,  00H,   01FH,  081F0H,
  166. 00H,   01FH,  081F8H,00H,   01FH,  080F8H,0F00H, 00H,   038H,  0C00H,
  167. 00H,   018H,  0C00H, 00H,   00H,   0C04H, 00H,   00H,   0600H, 00H,
  168. 00H,   0300H, 00H,   03FCH, 00H,   00H,   03F0H, 04H,   00H,   03C0H,
  169. 00H,   00H,   0300H, 00H,   00H,   0200H, 00H,   00H,   00H,   00H,
  170. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  171. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H);
  172. END Image3Data;
  173.  
  174. PROCEDURE Image4Data(); (* $E- *)
  175.  
  176. BEGIN
  177. INLINE(
  178. 00H,   00H,   04H,   00H,   02000H,00H,   00H,   07800H,00H,   00H,
  179. 0800H, 00H,   00H,   09000H,00H,   00H,   07800H,00H,   00H,   030H,
  180. 00H,   00H,   07CH,  00H,   00H,   044H,  00H,   00H,   07CH,  00H,
  181. 00H,   08H,   00H,   00H,   00H,   00H,   00H,   0FH,   00H,   00H,
  182. 08010H,08000H,00H,   0C01BH,08000H,080H,  0E01EH,00H,   0C0H,  0F000H,
  183. 00H,   0E0H,  0F800H,00H,   0F0H,  00H,   00H,   0F8H,  00H,   00H,
  184. 0FCH,  00H,   00H,   0FEH,  00H,   00H,   0C7H,  00H,   00H,   0C7H,
  185. 080C0H,00H,   0C7H,  0C3C0H,00H,   0FFH,  0E0C0H,00H,   0FFH,  0F040H,
  186. 00H,   0FFH,  0F800H,04H,   0FFH,  0E000H,00H,   0FFH,  08000H,00H,
  187. 0FCH,  01F00H,00H,   0F0H,  01C00H,00H,   0E0H,  01000H,00H,   080H,
  188. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  189. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  190. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   04H,   00H,
  191. 02000H,00H,   00H,   07800H,00H,   00H,   0800H, 00H,   00H,   09000H,
  192. 00H,   00H,   07800H,00H,   00H,   030H,  00H,   00H,   07CH,  00H,
  193. 00H,   044H,  00H,   00H,   07CH,  00H,   00H,   08H,   00H,   00H,
  194. 00H,   00H,   00H,   0FH,   00H,   00H,   08010H,08000H,00H,   0C01BH,
  195. 08000H,00H,   0E01EH,00H,   00H,   0F000H,00H,   00H,   0F800H,00H,
  196. 00H,   0FC00H,00H,   00H,   0FF00H,00H,   00H,   0FFC0H,00H,   00H,
  197. 0FFE0H,00H,   00H,   0FFF0H,00H,   00H,   07F38H,00H,   00H,   03C3EH,
  198. 00H,   00H,   01F3CH,00H,   00H,   0FB8H, 00H,   00H,   07F8H, 04H,
  199. 00H,   01FF8H,00H,   00H,   07FF8H,00H,   00H,   060FCH,00H,   00H,
  200. 063F0H,00H,   00H,   06F80H,00H,   00H,   07F00H,00H,   00H,   07800H,
  201. 00H,   00H,   06000H,00H,   00H,   00H,   00H,   00H,   00H,   00H,
  202. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  203. 00H,   00H,   00H,   00H,   04H,   00H,   02000H,00H,   00H,   07800H,
  204. 00H,   00H,   0800H, 00H,   00H,   09000H,00H,   00H,   07800H,00H,
  205. 00H,   030H,  00H,   00H,   07CH,  00H,   00H,   044H,  00H,   00H,
  206. 07CH,  00H,   00H,   08H,   00H,   00H,   00H,   00H,   00H,   0FH,
  207. 00H,   00H,   010H,  08000H,00H,   01BH,  08000H,00H,   01EH,  00H,
  208. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  209. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   038H,  0380H,
  210. 00H,   038H,  07C0H, 00H,   038H,  03C0H, 00H,   00H,   0C3H,  08000H,
  211. 00H,   047H,  00H,   00H,   06H,   04H,   00H,   06H,   00H,   00H,
  212. 07H,   00H,   00H,   01F03H,08000H,00H,   01C00H,04H,   00H,   01000H,
  213. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  214. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  215. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H);
  216. END Image4Data;
  217.  
  218. PROCEDURE Image5Data(); (* $E- *)
  219.  
  220. BEGIN
  221. INLINE(
  222. 00H,   00H,   04H,   00H,   02000H,00H,   00H,   07800H,00H,   00H,
  223. 0800H, 00H,   00H,   09000H,00H,   00H,   07800H,00H,   00H,   030H,
  224. 00H,   00H,   07CH,  00H,   00H,   044H,  00H,   00H,   07CH,  00H,
  225. 04H,   08H,   00H,   04H,   00H,   00H,   06H,   0FH,   00H,   06H,
  226. 02010H,08000H,07H,   0201BH,08000H,07H,   0301EH,00H,   07H,   03800H,
  227. 00H,   07H,   0BC00H,00H,   07H,   0BE00H,00H,   07H,   0BF00H,00H,
  228. 07H,   08000H,00H,   06H,   08000H,00H,   06H,   08000H,00H,   06H,
  229. 08000H,00H,   06H,   08800H,00H,   07H,   0C000H,00H,   07H,   0C000H,
  230. 00H,   07H,   0C000H,04H,   07H,   08000H,00H,   07H,   08000H,00H,
  231. 07H,   08000H,00H,   07H,   00H,   00H,   07H,   00H,   00H,   07H,
  232. 00H,   00H,   07H,   00H,   00H,   06H,   00H,   00H,   04H,   00H,
  233. 00H,   04H,   00H,   00H,   04H,   00H,   00H,   00H,   00H,   00H,
  234. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   04H,   00H,
  235. 02000H,00H,   00H,   07800H,00H,   00H,   0800H, 00H,   00H,   09000H,
  236. 00H,   00H,   07800H,00H,   00H,   030H,  00H,   00H,   07CH,  00H,
  237. 00H,   044H,  00H,   00H,   07CH,  00H,   00H,   08H,   00H,   00H,
  238. 00H,   00H,   00H,   0FH,   00H,   00H,   02010H,08000H,00H,   0201BH,
  239. 08000H,00H,   0301EH,00H,   00H,   03800H,00H,   00H,   03C00H,00H,
  240. 00H,   03E00H,00H,   00H,   03F00H,00H,   00H,   07F80H,00H,   00H,
  241. 07FC0H,00H,   00H,   07FE0H,00H,   00H,   07FF0H,00H,   00H,   071E0H,
  242. 00H,   00H,   03980H,00H,   00H,   03980H,00H,   00H,   03D80H,04H,
  243. 00H,   07F80H,00H,   00H,   07FE0H,00H,   00H,   043C0H,00H,   00H,
  244. 0CF80H,00H,   00H,   0DF00H,00H,   01H,   0FC00H,00H,   01H,   0F800H,
  245. 00H,   00H,   0F000H,00H,   00H,   0C000H,00H,   00H,   0C000H,00H,
  246. 00H,   08000H,00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  247. 00H,   00H,   00H,   00H,   04H,   00H,   02000H,00H,   00H,   07800H,
  248. 00H,   00H,   0800H, 00H,   00H,   09000H,00H,   00H,   07800H,00H,
  249. 00H,   030H,  00H,   00H,   07CH,  00H,   00H,   044H,  00H,   00H,
  250. 07CH,  00H,   00H,   08H,   00H,   00H,   00H,   00H,   00H,   0FH,
  251. 00H,   00H,   010H,  08000H,00H,   01BH,  08000H,00H,   01EH,  00H,
  252. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  253. 00H,   00H,   00H,   00H,   00H,   01H,   00H,   00H,   01H,   01C00H,
  254. 00H,   01H,   01E00H,00H,   01H,   081CH, 00H,   00H,   070H,  00H,
  255. 00H,   040H,  00H,   00H,   040H,  04H,   00H,   070H,  00H,   00H,
  256. 018H,  00H,   00H,   00H,   00H,   00H,   00H,   04H,   00H,   00H,
  257. 00H,   01H,   00H,   00H,   01H,   00H,   00H,   00H,   00H,   00H,
  258. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  259. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H);
  260. END Image5Data;
  261.  
  262. PROCEDURE Image6Data(); (* $E- *)
  263.  
  264. BEGIN
  265. INLINE(
  266. 00H,   00H,   04H,   00H,   02000H,00H,   00H,   07800H,00H,   00H,
  267. 0800H, 00H,   00H,   09000H,00H,   00H,   07800H,00H,   00H,   030H,
  268. 00H,   00H,   07CH,  00H,   00H,   044H,  00H,   00H,   07CH,  00H,
  269. 04H,   08H,   00H,   04H,   00H,   00H,   06H,   0FH,   00H,   06H,
  270. 02010H,08000H,07H,   0201BH,08000H,07H,   0301EH,00H,   07H,   0B000H,
  271. 00H,   07H,   0B800H,00H,   07H,   0FC00H,00H,   07H,   0FC00H,00H,
  272. 07H,   08000H,00H,   07H,   00H,   00H,   07H,   08000H,00H,   07H,
  273. 08000H,00H,   07H,   09800H,00H,   07H,   09800H,00H,   07H,   01000H,
  274. 00H,   07H,   00H,   04H,   07H,   00H,   00H,   07H,   00H,   00H,
  275. 07H,   00H,   00H,   07H,   00H,   00H,   07H,   00H,   00H,   07H,
  276. 00H,   00H,   07H,   00H,   00H,   06H,   00H,   00H,   04H,   00H,
  277. 00H,   04H,   00H,   00H,   04H,   00H,   00H,   00H,   00H,   00H,
  278. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   04H,   00H,
  279. 02000H,00H,   00H,   07800H,00H,   00H,   0800H, 00H,   00H,   09000H,
  280. 00H,   00H,   07800H,00H,   00H,   030H,  00H,   00H,   07CH,  00H,
  281. 00H,   044H,  00H,   00H,   07CH,  00H,   00H,   08H,   00H,   00H,
  282. 00H,   00H,   00H,   0FH,   00H,   00H,   02010H,08000H,00H,   0201BH,
  283. 08000H,00H,   0301EH,00H,   00H,   03000H,00H,   00H,   03800H,00H,
  284. 00H,   07C00H,00H,   00H,   07C00H,00H,   00H,   07E00H,00H,   00H,
  285. 0FF00H,00H,   00H,   07F00H,00H,   00H,   07F80H,00H,   00H,   04780H,
  286. 00H,   00H,   06780H,00H,   00H,   0E980H,00H,   00H,   0E080H,04H,
  287. 00H,   0E000H,00H,   00H,   0E000H,00H,   00H,   0F000H,00H,   00H,
  288. 0F900H,00H,   00H,   0FE00H,00H,   01H,   0FC00H,00H,   01H,   0F000H,
  289. 00H,   00H,   0E000H,00H,   00H,   0C000H,00H,   00H,   0C000H,00H,
  290. 00H,   08000H,00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  291. 00H,   00H,   00H,   00H,   04H,   00H,   02000H,00H,   00H,   07800H,
  292. 00H,   00H,   0800H, 00H,   00H,   09000H,00H,   00H,   07800H,00H,
  293. 00H,   030H,  00H,   00H,   07CH,  00H,   00H,   044H,  00H,   00H,
  294. 07CH,  00H,   00H,   08H,   00H,   00H,   00H,   00H,   00H,   0FH,
  295. 00H,   00H,   010H,  08000H,00H,   01BH,  08000H,00H,   01EH,  00H,
  296. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  297. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   03800H,
  298. 00H,   00H,   03800H,00H,   00H,   01800H,00H,   00H,   01800H,00H,
  299. 00H,   01600H,00H,   00H,   01F00H,04H,   00H,   01180H,00H,   00H,
  300. 01980H,00H,   00H,   0F00H, 00H,   00H,   0600H, 04H,   00H,   00H,
  301. 00H,   01H,   00H,   00H,   01H,   00H,   00H,   00H,   00H,   00H,
  302. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  303. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H);
  304. END Image6Data;
  305.  
  306. PROCEDURE Image7Data(); (* $E- *)
  307.  
  308. BEGIN
  309. INLINE(
  310. 00H,   00H,   04H,   00H,   00H,   00H,   00H,   07C00H,00H,   00H,
  311. 06300H,00H,   00H,   01880H,00H,   00H,   01980H,00H,   02H,   0E00H,
  312. 00H,   03H,   00H,   00H,   03H,   08000H,00H,   03H,   08000H,00H,
  313. 03H,   0C000H,00H,   03H,   0C3E0H,00H,   03H,   0E420H,00H,   03H,
  314. 0E610H,00H,   03H,   0F1F0H,00H,   03H,   0F800H,00H,   03H,   0F000H,
  315. 00H,   03H,   0F800H,00H,   03H,   0FC00H,00H,   00H,   0200H, 00H,
  316. 00H,   00H,   00H,   00H,   0100H, 00H,   00H,   00H,   00H,   00H,
  317. 00H,   00H,   03H,   0C780H,00H,   03H,   08380H,00H,   03H,   0100H,
  318. 00H,   00H,   00H,   04H,   00H,   01000H,00H,   00H,   00H,   00H,
  319. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  320. 04000H,00H,   00H,   07800H,00H,   00H,   07000H,00H,   00H,   07000H,
  321. 00H,   00H,   07000H,00H,   00H,   07000H,00H,   00H,   06000H,00H,
  322. 00H,   06000H,00H,   00H,   00H,   00H,   00H,   00H,   04H,   00H,
  323. 00H,   00H,   00H,   07C00H,00H,   00H,   06300H,00H,   00H,   01880H,
  324. 00H,   00H,   01980H,00H,   00H,   0E00H, 00H,   00H,   00H,   00H,
  325. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  326. 03E0H, 00H,   00H,   0420H, 00H,   00H,   0610H, 00H,   00H,   0C1F0H,
  327. 00H,   00H,   0E000H,00H,   00H,   0F000H,00H,   00H,   0F800H,00H,
  328. 01H,   0FC00H,00H,   03H,   0FE00H,00H,   07H,   0FE00H,00H,   07H,
  329. 0FF00H,00H,   07H,   0FFC0H,00H,   07H,   0FFC0H,00H,   04H,   03800H,
  330. 00H,   04H,   07C80H,00H,   04H,   0FE80H,00H,   03H,   0C380H,04H,
  331. 03H,   0C380H,00H,   03H,   0C300H,00H,   03H,   0FE00H,00H,   01H,
  332. 0FE00H,00H,   00H,   0F800H,00H,   00H,   03800H,00H,   00H,   00H,
  333. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  334. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   02000H,00H,   00H,
  335. 00H,   00H,   00H,   00H,   04H,   00H,   00H,   00H,   00H,   07C00H,
  336. 00H,   00H,   06300H,00H,   00H,   01880H,00H,   00H,   01980H,00H,
  337. 00H,   0E00H, 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  338. 00H,   00H,   00H,   00H,   00H,   00H,   03E0H, 00H,   00H,   0420H,
  339. 00H,   00H,   0610H, 00H,   00H,   01F0H, 00H,   00H,   00H,   00H,
  340. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  341. 00H,   00H,   00H,   00H,   00H,   00H,   08100H,00H,   03H,   087C0H,
  342. 00H,   03H,   0C7C0H,00H,   03H,   0C780H,00H,   03H,   08380H,00H,
  343. 03H,   0100H, 00H,   00H,   03C00H,04H,   00H,   03400H,00H,   00H,
  344. 03C00H,00H,   00H,   00H,   00H,   00H,   00H,   04H,   00H,   00H,
  345. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  346. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  347. 00H,   00H,   00H,   02000H,00H,   00H,   00H,   00H);
  348. END Image7Data;
  349.  
  350. PROCEDURE Image8Data(); (* $E- *)
  351.  
  352. BEGIN
  353. INLINE(
  354. 00H,   00H,   04H,   00H,   00H,   00H,   00H,   07C00H,00H,   00H,
  355. 06300H,00H,   080H,  01880H,00H,   02H,   01980H,00H,   03H,   0E00H,
  356. 00H,   03H,   08000H,00H,   03H,   0C000H,00H,   03H,   0E000H,00H,
  357. 03H,   0F000H,00H,   03H,   0FBE0H,00H,   03H,   0FC20H,00H,   00H,
  358. 010H,  00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  359. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  360. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  361. 08H,   00H,   0FEH,  03F0H, 00H,   05CH,  01F0H, 00H,   07CH,  01E0H,
  362. 00H,   03CH,  0C0H,  04H,   038H,  0C0H,  00H,   018H,  0C0H,  00H,
  363. 00H,   00H,   00H,   00H,   07C01H,04000H,00H,   07C00H,00H,   00H,
  364. 07C00H,00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  365. 00H,   00H,   00H,   00H,   00H,   07800H,00H,   00H,   07000H,00H,
  366. 00H,   06000H,00H,   00H,   04000H,00H,   00H,   00H,   04H,   00H,
  367. 00H,   00H,   00H,   07C00H,00H,   00H,   06300H,00H,   080H,  01880H,
  368. 00H,   00H,   01980H,00H,   00H,   0E00H, 00H,   00H,   00H,   00H,
  369. 00H,   00H,   00H,   00H,   00H,   00H,   01H,   00H,   00H,   01H,
  370. 083E0H,00H,   01H,   0C020H,00H,   0FH,   0FFD0H,00H,   01FH,  0FFE0H,
  371. 00H,   03FH,  0FFF0H,00H,   0FFH,  0FFF8H,00H,   01FFH, 0FFFCH,00H,
  372. 03FFH, 0FFFEH,00H,   07FFH, 0FFFFH,00H,   07FFH, 0FFFFH,00H,   0FFFH,
  373. 0FFFFH,08000H,0FFFH, 0FFFFH,08000H,0FFFH, 0FFFFH,08000H,0F00H, 0FC07H,
  374. 08000H,0F81H, 0FE0FH,08000H,0F83H, 0FE1FH,08000H,0FC3H, 0FF3FH,08004H,
  375. 0FC7H, 0FF3FH,08000H,07E7H, 0833FH,00H,   07FFH, 01FFH, 00H,   03FFH,
  376. 07DFEH,00H,   0FFH,  07DFCH,00H,   07FH,  07DF8H,00H,   03FH,  01F0H,
  377. 00H,   0FH,   083C0H,00H,   03H,   0FF80H,00H,   00H,   0FC00H,00H,
  378. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  379. 00H,   00H,   00H,   00H,   04H,   00H,   00H,   00H,   00H,   07C00H,
  380. 00H,   00H,   06300H,00H,   080H,  01880H,00H,   00H,   01980H,00H,
  381. 00H,   0E00H, 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  382. 00H,   00H,   00H,   00H,   00H,   00H,   03E0H, 00H,   00H,   020H,
  383. 00H,   00H,   010H,  00H,   00H,   00H,   00H,   00H,   00H,   00H,
  384. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   01CH,
  385. 01C0H, 00H,   03EH,  03E0H, 00H,   0FFH,  03F0H, 00H,   0FFH,  03F0H,
  386. 00H,   0FFH,  03F8H, 00H,   0FEH,  03F0H, 00H,   05CH,  01F0H, 00H,
  387. 07CH,  01E0H, 00H,   03CH,  0C0H,  04H,   038H,  0C0H,  00H,   018H,
  388. 07CC0H,00H,   00H,   0FE00H,00H,   00H,   0FE01H,04004H,00H,   0FE00H,
  389. 00H,   00H,   0FE00H,00H,   00H,   0FE00H,00H,   00H,   07C00H,00H,
  390. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  391. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H);
  392. END Image8Data;
  393.  
  394. PROCEDURE Image9Data(); (* $E- *)
  395.  
  396. BEGIN
  397. INLINE(
  398. 00H,   00H,   04H,   00H,   00H,   00H,   00H,   07C00H,00H,   00H,
  399. 06300H,00H,   080H,  01880H,00H,   02H,   01980H,00H,   03H,   0E00H,
  400. 00H,   03H,   08000H,00H,   03H,   0C000H,00H,   03H,   0E000H,00H,
  401. 03H,   0F000H,00H,   03H,   0FBE0H,00H,   03H,   0FC20H,00H,   00H,
  402. 010H,  00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  403. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  404. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  405. 08H,   00H,   0FEH,  03F0H, 00H,   05CH,  01F0H, 00H,   07CH,  01E0H,
  406. 00H,   03CH,  0C0H,  04H,   038H,  0C0H,  00H,   018H,  0C0H,  00H,
  407. 00H,   01C00H,00H,   00H,   07E00H,00H,   00H,   07E00H,04000H,00H,
  408. 03C00H,00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  409. 00H,   00H,   00H,   00H,   00H,   07800H,00H,   00H,   07000H,00H,
  410. 00H,   06000H,00H,   00H,   04000H,00H,   00H,   00H,   04H,   00H,
  411. 00H,   00H,   00H,   07C00H,00H,   00H,   06300H,00H,   080H,  01880H,
  412. 00H,   00H,   01980H,00H,   00H,   0E00H, 00H,   00H,   00H,   00H,
  413. 00H,   00H,   00H,   00H,   00H,   00H,   01H,   00H,   00H,   01H,
  414. 083E0H,00H,   01H,   0C020H,00H,   01FH,  0FFF0H,00H,   03FH,  0FFF8H,
  415. 00H,   07FH,  0FFFCH,00H,   01FFH, 0FFFFH,00H,   03FFH, 0FFFFH,08000H,
  416. 07FFH, 0FFFFH,0C000H,01FFFH,0FFFFH,0C000H,01FFFH,0FFFFH,0E000H,03FFFH,
  417. 0FFFFH,0F000H,03FFFH,0FFFFH,0F800H,03FFFH,0FFFFH,0F800H,03F00H,0FC07H,
  418. 0F800H,03F81H,0FE0FH,0F800H,03F83H,0FE1FH,0F800H,03FC3H,0FF3FH,0F804H,
  419. 03FC7H,0FF3FH,0F800H,01FE7H,0813FH,0F800H,0FFEH, 01C7FH,0F000H,07FEH,
  420. 07E7FH,0E000H,01FEH, 07E7FH,0C000H,0FEH,  03C7EH,00H,   03FH,  0FCH,
  421. 00H,   01FH,  083F0H,00H,   07H,   0FFC0H,00H,   01H,   0FF80H,00H,
  422. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  423. 00H,   00H,   00H,   00H,   04H,   00H,   00H,   00H,   00H,   07C00H,
  424. 00H,   00H,   06300H,00H,   080H,  01880H,00H,   00H,   01980H,00H,
  425. 00H,   0E00H, 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  426. 00H,   00H,   00H,   00H,   00H,   00H,   03E0H, 00H,   00H,   020H,
  427. 00H,   00H,   010H,  00H,   00H,   00H,   00H,   00H,   00H,   00H,
  428. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   01CH,
  429. 01C0H, 00H,   03EH,  03E0H, 00H,   0FFH,  03F0H, 00H,   0FFH,  03F0H,
  430. 00H,   0FFH,  03F8H, 00H,   0FEH,  03F0H, 00H,   05CH,  01F0H, 00H,
  431. 07CH,  01E0H, 00H,   03CH,  0C0H,  04H,   038H,  0C0H,  00H,   018H,
  432. 07EC0H,00H,   01H,   0FF80H,00H,   01H,   0FF80H,04H,   01H,   0FF80H,
  433. 04000H,01H,   0FF80H,00H,   00H,   0FF00H,00H,   00H,   07C00H,00H,
  434. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H,
  435. 00H,   00H,   00H,   00H,   00H,   00H,   00H,   00H);
  436. END Image9Data;
  437.  
  438. PROCEDURE SetSprite(VAR sprite:VSprite; image: ADDRESS; bob: BobPtr);
  439.  
  440. BEGIN
  441.   WITH sprite  DO
  442.     nextVSprite := NIL;
  443.     prevVSprite := NIL;
  444.     drawPath := NIL;
  445.     clearPath := NIL;
  446.     oldY := 0;    oldX := 0;
  447.     flags := VSpriteFlagSet{overlay,saveBack};
  448.     y := 0;       x := 0;
  449.     height := 42; width := 3; depth := 3;
  450.     meMask := {}; hitMask := {};
  451.     imageData := image;
  452.     borderLine := NIL;
  453.     collMask := NIL;
  454.     sprColors := NIL;
  455.     vsBob := bob;
  456.     planePick := 7;
  457.     planeOnOff := 0;
  458.   END;
  459. END SetSprite;
  460.  
  461. PROCEDURE SetComp(VAR Comp: AnimComp; next,prev: AnimCompPtr;
  462.                   Ob: AnimObPtr; bob: BobPtr);
  463.  
  464. BEGIN
  465.   WITH Comp DO
  466.     flags := 0;
  467.     timer := 0;
  468.     timeSet := 0;
  469.     nextComp := NIL;
  470.     prevComp := NIL;
  471.     nextSeq := next;
  472.     prevSeq := prev;
  473.     animCRoutine := NIL;
  474.     yTrans := 0; xTrans := 0;
  475.     headOb := Ob;
  476.     animBob := bob;
  477.   END;
  478. END SetComp;
  479.  
  480. PROCEDURE SetBob(VAR bob: Bob; vs: VSpritePtr; comp: AnimCompPtr);
  481.  
  482. BEGIN
  483.   WITH bob DO
  484.     flags := BobFlagSet{};
  485.     saveBuffer := NIL; imageShadow := NIL; before := NIL; after := NIL;
  486.     bobVSprite := vs;
  487.     bobComp := comp;
  488.     dBuffer := NIL;
  489.   END;
  490. END SetBob;
  491.  
  492. PROCEDURE CleanUp();
  493.  
  494. BEGIN
  495.   FreeMem(image1,SIZE(FishData));
  496.   FreeMem(image2,SIZE(FishData));
  497.   FreeMem(image3,SIZE(FishData));
  498.   FreeMem(image4,SIZE(FishData));
  499.   FreeMem(image5,SIZE(FishData));
  500.   FreeMem(image6,SIZE(FishData));
  501.   FreeMem(image7,SIZE(FishData));
  502.   FreeMem(image8,SIZE(FishData));
  503.   FreeMem(image9,SIZE(FishData));
  504. END CleanUp;
  505.  
  506. BEGIN
  507.   TermProcedure(CleanUp);
  508.   color[0] := 028FH;
  509.   color[1] := 0FFAH;
  510.   color[2] := 0FBFH;
  511.   color[3] := 0DBH;
  512.   color[4] := 0F30H;
  513.   color[5] := 090DH;
  514.   color[6] := 0FFH;
  515.   color[7] := 016AH;
  516.   FishDataPtr := ADR(Image1Data);
  517.   image1 := AllocMem(SIZE(FishData),MemReqSet{chip});
  518.   image1^ := FishDataPtr^;
  519.   FishDataPtr := ADR(Image2Data);
  520.   image2 := AllocMem(SIZE(FishData),MemReqSet{chip});
  521.   image2^ := FishDataPtr^;
  522.   FishDataPtr := ADR(Image3Data);
  523.   image3 := AllocMem(SIZE(FishData),MemReqSet{chip});
  524.   image3^ := FishDataPtr^;
  525.   FishDataPtr := ADR(Image4Data);
  526.   image4 := AllocMem(SIZE(FishData),MemReqSet{chip});
  527.   image4^ := FishDataPtr^;
  528.   FishDataPtr := ADR(Image5Data);
  529.   image5 := AllocMem(SIZE(FishData),MemReqSet{chip});
  530.   image5^ := FishDataPtr^;
  531.   FishDataPtr := ADR(Image6Data);
  532.   image6 := AllocMem(SIZE(FishData),MemReqSet{chip});
  533.   image6^ := FishDataPtr^;
  534.   FishDataPtr := ADR(Image7Data);
  535.   image7 := AllocMem(SIZE(FishData),MemReqSet{chip});
  536.   image7^ := FishDataPtr^;
  537.   FishDataPtr := ADR(Image8Data);
  538.   image8 := AllocMem(SIZE(FishData),MemReqSet{chip});
  539.   image8^ := FishDataPtr^;
  540.   FishDataPtr := ADR(Image9Data);
  541.   image9 := AllocMem(SIZE(FishData),MemReqSet{chip});
  542.   image9^ := FishDataPtr^;
  543.   WITH fishOb DO
  544.     nextOb := NIL;   prevOb := NIL;
  545.     clock  := 0;
  546.     anOldY := 0;     anOldX := 0;
  547.     anY := 0;        anX := 0;
  548.     yVel := 0;       xVel := 0;
  549.     yAccel := 0;     xAccel := 0;
  550.     ringYTrans := 0; ringXTrans := 0;
  551.     animORoutine := ADR(fish1Routine);
  552.     headComp := ADR(fish1Comp);
  553.   END;
  554. (* Happy Imaging!  =RJM= *)
  555.  
  556. (* animation component file *)
  557. (* 1 *)
  558.   SetComp(fish1Comp,ADR(fish2Comp),ADR(fish17Comp),ADR(fishOb),ADR(fish1Bob));
  559.   SetBob(fish1Bob,ADR(fish1Sprite),ADR(fish1Comp));
  560.   SetSprite(fish1Sprite,image1,ADR(fish1Bob));
  561. (* 2 *)
  562.   SetComp(fish2Comp,ADR(fish3Comp),ADR(fish1Comp),ADR(fishOb),ADR(fish2Bob));
  563.   SetBob(fish2Bob,ADR(fish2Sprite),ADR(fish2Comp));
  564.   SetSprite(fish2Sprite,image2,ADR(fish2Bob));
  565. (* 3 *)
  566.   SetComp(fish3Comp,ADR(fish4Comp),ADR(fish2Comp),ADR(fishOb),ADR(fish3Bob));
  567.   SetBob(fish3Bob,ADR(fish3Sprite),ADR(fish3Comp));
  568.   SetSprite(fish3Sprite,image3,ADR(fish3Bob));
  569. (* 4 *)
  570.   SetComp(fish4Comp,ADR(fish5Comp),ADR(fish3Comp),ADR(fishOb),ADR(fish4Bob));
  571.   SetBob(fish4Bob,ADR(fish4Sprite),ADR(fish4Comp));
  572.   SetSprite(fish4Sprite,image4,ADR(fish4Bob));
  573. (* 5 *)
  574.   SetComp(fish5Comp,ADR(fish6Comp),ADR(fish4Comp),ADR(fishOb),ADR(fish5Bob));
  575.   SetBob(fish5Bob,ADR(fish5Sprite),ADR(fish5Comp));
  576.   SetSprite(fish5Sprite,image5,ADR(fish5Bob));
  577. (* 6 *)
  578.   SetComp(fish6Comp,ADR(fish7Comp),ADR(fish5Comp),ADR(fishOb),ADR(fish6Bob));
  579.   SetBob(fish6Bob,ADR(fish6Sprite),ADR(fish6Comp));
  580.   SetSprite(fish6Sprite,image6,ADR(fish6Bob));
  581. (* 7 *)
  582.   SetComp(fish7Comp,ADR(fish8Comp),ADR(fish6Comp),ADR(fishOb),ADR(fish7Bob));
  583.   SetBob(fish7Bob,ADR(fish7Sprite),ADR(fish7Comp));
  584.   SetSprite(fish7Sprite,image7,ADR(fish7Bob));
  585. (* 8 *)
  586.   SetComp(fish8Comp,ADR(fish9Comp),ADR(fish7Comp),ADR(fishOb),ADR(fish8Bob));
  587.   SetBob(fish8Bob,ADR(fish8Sprite),ADR(fish8Comp));
  588.   SetSprite(fish8Sprite,image8,ADR(fish8Bob));
  589. (* 9 *)
  590.   SetComp(fish9Comp,ADR(fish10Comp),ADR(fish8Comp),ADR(fishOb),ADR(fish9Bob));
  591.   SetBob(fish9Bob,ADR(fish9Sprite),ADR(fish9Comp));
  592.   SetSprite(fish9Sprite,image9,ADR(fish9Bob));
  593. (* 10 *)
  594.   SetComp(fish10Comp,ADR(fish11Comp),ADR(fish9Comp),ADR(fishOb),ADR(fish10Bob));
  595.   SetBob(fish10Bob,ADR(fish10Sprite),ADR(fish10Comp));
  596.   SetSprite(fish10Sprite,image8,ADR(fish10Bob));
  597. (* 11 *)
  598.   SetComp(fish11Comp,ADR(fish12Comp),ADR(fish10Comp),ADR(fishOb),ADR(fish11Bob));
  599.   SetBob(fish11Bob,ADR(fish11Sprite),ADR(fish11Comp));
  600.   SetSprite(fish11Sprite,image7,ADR(fish11Bob));
  601. (* 12 *)
  602.   SetComp(fish12Comp,ADR(fish13Comp),ADR(fish11Comp),ADR(fishOb),ADR(fish12Bob));
  603.   SetBob(fish12Bob,ADR(fish12Sprite),ADR(fish12Comp));
  604.   SetSprite(fish12Sprite,image6,ADR(fish12Bob));
  605. (* 13 *)
  606.   SetComp(fish13Comp,ADR(fish14Comp),ADR(fish12Comp),ADR(fishOb),ADR(fish13Bob));
  607.   SetBob(fish13Bob,ADR(fish13Sprite),ADR(fish13Comp));
  608.   SetSprite(fish13Sprite,image5,ADR(fish13Bob));
  609. (* 14 *)
  610.   SetComp(fish14Comp,ADR(fish15Comp),ADR(fish13Comp),ADR(fishOb),ADR(fish14Bob));
  611.   SetBob(fish14Bob,ADR(fish14Sprite),ADR(fish14Comp));
  612.   SetSprite(fish14Sprite,image4,ADR(fish14Bob));
  613. (* 15 *)
  614.   SetComp(fish15Comp,ADR(fish16Comp),ADR(fish14Comp),ADR(fishOb),ADR(fish15Bob));
  615.   SetBob(fish15Bob,ADR(fish15Sprite),ADR(fish15Comp));
  616.   SetSprite(fish15Sprite,image3,ADR(fish15Bob));
  617. (* 16 *)
  618.   SetComp(fish16Comp,ADR(fish17Comp),ADR(fish15Comp),ADR(fishOb),ADR(fish16Bob));
  619.   SetBob(fish16Bob,ADR(fish16Sprite),ADR(fish16Comp));
  620.   SetSprite(fish16Sprite,image2,ADR(fish16Bob));
  621. (* 17 *)
  622.   SetComp(fish17Comp,ADR(fish1Comp),ADR(fish16Comp),ADR(fishOb),ADR(fish17Bob));
  623.   SetBob(fish17Bob,ADR(fish17Sprite),ADR(fish17Comp));
  624.   SetSprite(fish17Sprite,image1,ADR(fish17Bob));
  625.  
  626. END FishData.
  627.